﻿Public Class datda
    Private _madatda As String
    Private _tendatda As String
    Private _docung As Single
    Sub New(MaDatDa As String)
        _madatda = MaDatDa
    End Sub
    Public Property Madatda() As String
        Get
            Return _madatda
        End Get
        Set(ByVal value As String)
            _madatda = value
        End Set
    End Property
    Public Property Tendatda() As String
        Get
            Return _tendatda
        End Get
        Set(ByVal value As String)
            _tendatda = value
        End Set
    End Property
    Public Property Docung() As Single
        Get
            Return _docung
        End Get
        Set(ByVal value As Single)
            _docung = value
        End Set
    End Property
    Public Sub New(ByVal Madatda As String, ByVal Tendatda As String, ByVal Docung As Single)
        Me._madatda = Madatda
        Me._tendatda = Tendatda
        Me._docung = Docung
    End Sub
End Class
